home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).adf / SASTools / WBruise / Hardtricks.def < prev    next >
Text File  |  1990-05-16  |  2KB  |  32 lines
  1. (***************************************************************************
  2. *  Programme : Hardtricks.def         (This is not a real programme, but a *
  3. *                                      definition module)                  *
  4. *  Usage     : use it together with Hardtricks.mod in own programmes       *
  5. *  Version   : V1.11                                                       *
  6. *  Date      : 01.-04.05.1989                                              *
  7. *  Author    : Jörg Sixt and Martin Murnleiter                             *
  8. *  Purpose   : a nice mix of procedures                                    *
  9. *  Language  : Modula-2,AMSoft  PD-Version from Fish 113                   *
  10. *  Bugs      : using devices would be better                               *
  11. *                                                                          *
  12. *  You may include both modules in your own programmes for free except for *
  13. *  commercial software (send me e.g. this programme then). Leave my name   *
  14. *  in this source and mention me somewhere in the documentation/programme  *
  15. ***************************************************************************)
  16.  
  17. DEFINITION MODULE Hardtricks ; (* my first one ! *)
  18.  
  19.   TYPE Button = (off,on,toggle) ;
  20.  
  21.   PROCEDURE PowerLED (How : Button) ;      (* Control the red Power LED *)
  22.  
  23.   PROCEDURE DriveLED (How : Button) ;      (* and also the green Drive LED *)
  24.  
  25.   PROCEDURE rightMouseButton() : BOOLEAN ; (* asks the right Mouse Button *)
  26.  
  27.   PROCEDURE leftMouseButton() : BOOLEAN ;  (* and this asks the left one *)
  28.  
  29.   PROCEDURE AskRawKey() : CARDINAL ;       (* last not least asking the key-
  30.                                               board is done with this *)
  31. END Hardtricks .
  32.